#!/usr/bin/perl
use strict;

mkdir "UTtrip";

my $count = 1;

for (1..4) {
    my $dir = "trip" . $_;
    
    opendir DIR , $dir;
    
    my @files = sort readdir DIR;

    for ( @files ) {
        
        if ($_ =~ /\.jpg/i) {
        print qq` copying $dir/$_ to ./trip/$count.jpg\n`;
        rename ($dir . "/" . $_, "./UTtrip/" . $count . ".jpg" ) || di
+e $!;
        $count++;
        }
    }
}
[download]