Select Code to Download

#!/usr/bin/perl -w
use warnings;
...
    sleep 2;
}
untie $db;

#!/usr/bin/perl -w
use warnings;
...
}

untie $db;