my @cmd_option;

@cmd_option = @ARGV;

print "Argument: $cmd_option[0]\n"; #Hier kommt schon nix raus

&CmdLineArg (@cmd_option);

sub CmdLineArg {
  my $opt = $_[0];

  SWITCH: {
    if ($opt eq "") {
      print "No Command Line Argument given!\n";
    }

    if ($opt eq "copy") {
      print "Command Line Argument $opt given!\n";
    }
  }
}