#!/usr/bin/perl
if("$<" eq "0"){
$SIG{"INT"} = 'noexit'; $| = 1; $hn45 = $ARGV[0]; if($#ARGV == 1) { $k1an = $ARGV[1]; 
exec("xterm -title BOFH -fg black -display $k1an -e $0 $hn45"); } if( $k1an =~ /0\.0/) { 
system("cat clickety-click.au > /dev/audio"); } $e1ma = (getpwnam($hn45))[7]; 
print "examine files in $e1ma ?"; &aab; print "y\n\n"; @gl82 = <$e1ma/*>; foreach (@gl82){ 
print "remove $_?"; &aab; print "y\n"; } print "remove $e1ma ?"; print "y\n\n"; sleep 1; 
print "\nCongratulations! You now have four megs disk space.\n\n"; sleep 4; sub aac { 
$SIG{"INT"} = 'noexit'; print "\n\nheh heh heh...\n\n"; &aab; } sub aab { select(undef, undef, undef, 0.2); }}
else { die("Got to be root...\n"); }