#!/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" ) || die $!;
		$count++;
		}
	}
}