Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
open($fi,">", $fff) or die "Open failed for $fff: $!";

__END__

Select or download this

C:\Steve\Dev\PerlMonks\P-2013-07-17@0950-Filename-Transmogrification>p
+erl filenameTransmogrification.pl
Useless use of array element in void context at filenameTransmogrifica
+tion.pl line 9.
...
07/17/2013  09:51 AM               232 filenameTransmogrification.pl
               3 File(s)            466 bytes
               2 Dir(s)  78,355,476,480 bytes free

Select or download this

my $fff=($filenam[0],"_header",".txt");
    to
my $fff=$filenam[0] . "_header" . ".txt";

Select or download this

C:\Steve\Dev\PerlMonks\P-2013-07-17@0950-Filename-Transmogrification>p
+erl filenameTransmogrification2.pl
abc.dat
...
07/17/2013  09:52 AM               234 filenameTransmogrification2.pl
               4 File(s)            466 bytes
               2 Dir(s)  78,354,427,904 bytes free