Select Code to Download

#!/usr/bin/perl

...

$check->finish();
$st->disconnect();

#!/usr/bin/perl

...
    print F $_.('z' x 10)."\n";
}
close F;