Select Code to Download

print "Enter the name of the file: ";
my $base_dir = <>;
chomp($base_dir);open( my $DATA, "<" , $base_dir) or die "Can't open f
+ile '$base_dir': $!";
while ( <$DATA> )

#! /tools/perl/5.8.8/linux/bin/perl
use strict;
...
                print "$_";
        }
}

 #! /tools/perl/5.8.8/linux/bin/perl
use strict;
use warnings;
...

print "$mode $name $set $value\n";
}

#! /tools/perl/5.8.8/linux/bin/perl

...
my $name='inoutdata';

system("uuencode /home/user/set/result.txt | mailx -s '$name' email");