* your shebang is not a shebang

* you're using @ARGV inside subroutines, better idea is to use @_, like

#!/usr/bin/perl --
use strict;
use warnings;
use ... ## other stuff you use

Main( @ARGV );
exit( 0 );
sub Main {
   my( $left, 
   ...
}
[download]

* $ perl -c stuff

Missing right curly or square bracket at stuff line 220, at end of lin
+e
syntax error at stuff line 220, at EOF
stuff had compilation errors.
[download]

* you're skipping a lot of error checking, add use autodie;