************************************************************
use Tie::File;
use Fcntl 'O_RDONLY';
 
$inputFile  = 'source.txt';
$outputFile = 'output.txt';
 
print 'Enter 1 to print to screen, 2 to print to a file: ';
chomp($outputOpt = <STDIN>); #chomp removes newline from input string
print 'Search for: ';
chomp(my $searchPattern = <STDIN>);
 
 
 
 
 
tie @lines, 'Tie::File', $inputFile, mode => O_RDONLY or die "Can't open $inputFile for reading: $!\n";
 
if (@results = grep(/$searchPattern/,@lines)){
 
    if ($outputOpt == 1){
        print join("This box will close in 10 seconds\n",@results);
    }
    elsif ($outputOpt == 2){
        open(OUTPUT, ">$outputFile") or die "Can't open $outputFile for writing: $!\n";
        print OUTPUT join("\n",@results);
        close(OUTPUT);
        print "Everything is in a file called $outputFile\n";
    }
 
}       
else {
    print "No match & this box will close in 10 seconds\n";
}
 
$num = 10;
while($num--){
    sleep(1);
}