Select Code to Download

#!/usr/bin/perl
use strict;
...
        ];

C:\perlp>

#!/usr/bin/perl
use strict;
...
while (@all_st) {
    push @store_get, join ",", map "'$_'", splice @all_st, 0, 30;
}

push @store_get, join ",", splice @all_st, 0, 30;