Select Code to Download

package M;
use DBI;
...

1;

use M;
my $m = new M();
...
    sleep(1) ; #sleep one second
}
$m->over;