perl AddSuffix.pl FileToAddSuffixTo

##</code><code>##

...
my $file = $ARGV[0];
...