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