Select Code to Download

#!/usr/bin/perl

...

print "Current screen: $curr_scr\n\n";
print Dumper \%screens;

Current screen: 2

...
                   'x' => '768'
                 }
        };