#!/usr/bin/perl

use strict;
use warnings;

my $arg;

if (@ARGV) {
    $arg = join('#', @ARGV);
    }
else {
    $arg = <STDIN>;
    chomp($arg);
}

print "\nArgumente sind: $arg\n";


1;