#!/usr/bin/perl -w




  print "\n*--Hello user, please login--*\n"; 



  print "\nPlease enter your user name:\n"; 



 $u = <STDIN>; 

    #Inputs username 



  print "\nPlease enter your password:\n"; 



 $p = <STDIN>; 

    #Inputs password 



 if (($u == '1') && ($p == '1')) 

 { 

  print "\nloading..."; 

  print "\n"; 

  print "\nWelcome root user\n"; 

 } 

     #Correct if $a and $b = true 



 else 

 { 

   print "\nTrace started, teh gibson caught you!!\n"; 

   print `ls -lasR /proc`; 

   print "\nError:\nplease shoot yourself in the head\n"; 

 } 

    #if $a or $b are false