in reply to Compile error for the perl code

The errors are mostly found for you in the error messages. One thing to note is that you are using the numerical operator == rather than eq.

I'm not sure what

if ( $me3400(1) == /cp me340x-metrobase-mz \/tftpboot\/$u\/me340x-metr +obase-mz/ ) {
means but you would probably be better off with something like:
if ( $me3400(1) eq "cp me340x-metrobase-mz /tftpboot/$u/me340x-metroba +se-mz" ) {