Select Code to Download

#!/bin/Perl

use warnings;
...
        print $_;    
    }
}

perl "E:\perl_TK\OpenFiles1.pl" a b c "e:\\territory20100713.sql"
Process started >>>
Name "main::FILE3" used only once: possible typo at E:\perl_TK\OpenFil
+es1.pl line 16.
...
/*!50003 CREATE*/ /*!50020 DEFINER=`gene`@`%`*/ /*!50003 FUNCTION `act
+uliza`(te CHAR(64), co CHAR
-- Dump completed on 2010-07-13 16:17:07
<<< Process finished.