Select Code to Download

#!/usr/bin/perl
use strict;
use Storable qw(freeze thaw);
...
    sleep 1;
    print shift @datastore if (scalar @datastore);
}