#!/usr/bin/env perl -w

my $wilsonstiff = "Z:\/Partners\/Wilsons\/2push_test";
chdir( $wilsonstiff ) or warn "Cant chanage to Z:/Partners/Wilsons/2push_test $!";
(@upload_wilsonstiff) = glob "*";
my $upload_count_wilsonstiff = @upload_wilsonstiff;
print "$upload_count_wilsonstiff files found\n";