Select Code to Download

#!/usr/bin/perl 
use warnings;
...
else {
    print "You didn\'t enter text.\n";
}

C:\Info>perl search.pl
Enter a search pattern.
...
02/25/2008  07:40 PM               175 whydont.pl
               1 File(s)            175 bytes
               0 Dir(s)  51,114,610,688 bytes free