Here is my first perl poetry, hopefully others find it as enjoyable as the ones I have seen here. Please give me your input.

while( !$problem->issolved()){
   type until drop;
   sleep 60*60*8;
}
$problem->send('/dev/null');
print "Opps\n";
`perl programing.pl`;
print "Ah...Done?";
[download]