Archive

Monthly Archives: April 2010

#!/usr/local/bin/perl
use Shell;
my $sh = Shell->new;
$tw_rc = kiranfile;
if( ! -f $tw_rc ) {
print “File is not there”;
print $sh->touch (‘kiranfile’);
print $sh->ps (“ax”);
}else {
print “File is there \n”;
print $sh->cat (‘kiranfile’);
pwd;
}

Advertisements