Select Code to Download

#!/usr/bin/perl
use warnings;
...
close DR;
my ($totsize) = $last =~ /^total size is (\d+)/;
print "$count\t$totsize\n";

#!/usr/bin/perl
use warnings;
...

__END__