Perl Programing

#!/usr/bin/perl

use strict;

use warnings;

print "this program for the development of the toool\n";

open (FILE,"text1.txt");

my @list=<FILE>;

print "enter your name:\n";

my $name=<STDIN>;

my $set=0;

open (DAT,">> list3.txt");

foreach(@list)

{

if($_ =~/^s(a-z)*/)

{

print DAT $_;

}

}

if($set==1)

{

print ":::::::::::::::::::::::::::::::::::::::::::::::\n";

print "::::::::::::::::::::::::::::::::::::::::::::::::\n";

print "congrats!! you are selected for the final list\n";

print "::::::::::::::::::::::::::::::::::::::::::::::::\n";

print "::::::::::::::::::::::::::::::::::::::::::::::::\n";

}

else

{

print ":::::::::::::::::::::::::::::::::::::::::::::::\n";

print "::::::::::::::::::::::::::::::::::::::::::::::::\n";

print "sorry...!! you not selected for the final list\n";

print "::::::::::::::::::::::::::::::::::::::::::::::::\n";

print "::::::::::::::::::::::::::::::::::::::::::::::::\n";

}

my $count = `wc -l < "list3.txt"`;

print "size of the file searched: $count\n";

close(DAT);

my $title='mail to user';

my $to='shrikant200@gmail.com';

my $from= 'shrikant.badiger@alcatel-lucent.com';

my $subject='welcome to alcatel lucent';