Уже нашёл до ответа. Но толку 0.

#!/usr/bin/perl
use strict;
my $var = $ARGV[0];
print reverse($var);

C:>perl.pl test
test

__________________
..