$ perl mpj2.pl file: /home/dan/Desktop/upload $ ls /home/dan/Desktop/upload 179148_10150875347426275_161694845_n.jpg 484180_10150840098410957_750520549_n.jpg 526160_329491527117931_212574393_n.jpg 532875_317265865025966_675027772_n.jpg 540009_426335457388417_562960017_n.jpg 543406_10150615290746269_1527898960_n.jpg 559622_10150811371179228_713865817_n.jpg 576895_319150664834725_665940778_n.jpg $ cat mpj2.pl #!/usr/bin/perl -w use strict; my @files = ; my $counter = 0; for my $img (@files) { print "file: $img\n"; $counter++; my $filename = "image_". "$counter"; } $