Select Code to Download

perl -Mstrict -e'my $num = 1; print 1 if $num >= 1; print 2 if $num =>
+ 1;'

#!/usr/bin/perl

...
print Dumper %dbinfo;

END { $dbh->disconnect }

$VAR77 = 'abcde';
$VAR78 = {
...
$VAR84 = {
           'extents' => 17
         };

next unless $count => 8;

$VAR2949 = 'abcdefgh';
$VAR2950 = {
...
$VAR2964 = {
             'extents' => '1'
           };

This is perl, v5.8.3 built for x86_64-linux-thread-multi