Select Code to Download

#!/usr/bin/perl
use strict;
...
$count = $count - 1;
print "\nI counted $count image-files\n";