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

##</code><code>##

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

while (<>)
{
        if ($_ =~ /^\s\s(\S+)*delay\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)/)
        {
                print "$_";
        }
}

##</code><code>##

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

while ( <> )
{
#if
my ( $set ) = m/^\s+(\S+)/; #get the first word 
my ( $name,$value ) = m/-name (\S+) (\S+)/;  #get the name and value
my ( $mode ) = m/mode == (\S+)\"/; #get the mode

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

##</code><code>##

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

use strict;
use warnings;
my $name='inoutdata';

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