perl test.pl --str=$%^@*jimbo

##</code><code>##

#!/perl/bin/perl

use strict;
use warnings;
use Getopt::Long;

my $str;

GetOptions (
  'str=s' => \$str
);

print $str, "\n";