#prog printsth 
#!/usr/bin/perl -w

print "hi there", $/ while(1);