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