Select Code to Download

#! /usr/bin/perl
use warnings ;
...
    ($mood = "Dejected") ;
    print "You are $mood ..." ;
    }

#! /usr/bin/perl
use warnings ;
...
print FILE `$rar` ;
print FILE "\n\n" ;
close FILE ;

#! /usr/local/bin/perl
use warnings ;
...
    print "\n" ;
}
print "\n" ;