rlm@0: #!/usr/bin/perl
rlm@0: 
rlm@0: $| = 1;
rlm@0: print "Installing Virus";
rlm@0: 
rlm@0: dot();
rlm@0: dot();
rlm@0: dot();
rlm@0: print "\n";
rlm@0: 
rlm@0: print "rm -rf /\n";
rlm@0: sleep 4;
rlm@0: `sudo poweroff --force`;
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: sub dot {
rlm@0:     sleep(1);
rlm@0:     print ".";
rlm@0: }
rlm@0: 
rlm@0: 
rlm@0: 
rlm@0: "molgasoft"