2002 - 2004 << Back | Fwrd >>

#!/usr/bin/perl





$var="Ownish script";


print($var);

#!/usr/bin/perl





$l33t_msg="Exodus: fate u'll bitch\n";


# print the information out of the var


print($l33t_msg);


# print a simple line


print("thanks");

#!/usr/bin/perl





print("what is ur name: ");


$leetish_name=<STDIN>;


print("\nyour name is $leetish_name");

#!/usr/bin/perl





if(1<2) # which is true


{


    print("OHH YAA");


}


else


{


    print("OH crap");


}

#!/usr/bin/perl





if(1>2) # which is false


{


    print("fucken");


}


elsif(1>4) # which is false too


{


    print("hmmmm");


}


else


{


    print("BAH");


}

#!/usr/bin/perl





$exodus=10;


$fate=0;


while($exodus>$fate) # ן¿½ן¿½ן¿½ן¿½ ן¿½ן¿½ן¿½ן¿½ן¿½ן¿½ ן¿½ן¿½ן¿½ ן¿½ן¿½ן¿½ן¿½


{ # ן¿½ן¿½ן¿½ ן¿½ן¿½ ן¿½ן¿½ ן¿½ן¿½ן¿½ן¿½ ן¿½ן¿½ן¿½ן¿½ן¿½ן¿½ן¿½ן¿½ ן¿½ן¿½ן¿½ן¿½ן¿½ן¿½ן¿½ן¿½ן¿½


	print("Exodus ownage");


	$fate++;


}