or download this
chdir( $wetrasnfer) or mail ($to = $internaldl, $from = $internaldl, $
+subject= "wetransfer $! $0", $body ="ERROR $wetrasnfer $! $0" );
(@wetransfer) = glob '*.tif';
@wetrasnfer_fix = grep /([0-9])*_([0-9]*)/, @wetransfer;
print join("\n", @wetrasnfer_fix), "\n";