#!/usr/bin/perl
use strict;

mkdir "trip", 077;

my $count = 1;

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

	for ( @files ) {
	rename ($_, "./trip/" . $count ) || die $!;
	$count++;
	}
}