Your Perlmonks-fu needs work. Your post currently says this:

Hi, i get the error "Can't "last" outside a loop block" and ""syntax error at line 1 : `end of file' unexpected"" when i run the below code. any idea about this...??? < if (-e "testfile") { $check = 0; print "testfile is present\n"; } else { $check = 1; $msg1= "testFile Is Not Avaliable. $timex"; $subj1="testFile Is Not Avaliable "; insertlog($msg1); maildl($msg1, $env, $subj1, $maillst); last; } >

This is, essentially, useless. You should have enclosed your code inside code tags, and this *should* have been obvious when you *previewed* your post.

It should have looked something like this:

if ( -e "testfile" ) { $check = 0; print "testfile is present\n"; }
else {
    $check = 1;
    $msg1  = "testFile Is Not Avaliable. $timex";
    $subj1 = "testFile Is Not Avaliable ";
    insertlog($msg1);
    maildl( $msg1, $env, $subj1, $maillst );
    last;
}
[download]

That's just cutting and pasting your code and running it through perltidy. At least now we have a vague idea of what your code looks like. And as it stands, the last isn't necessary -- there's no loop to break out of.

But if there's more to your code, show it to us. Better than that, of course, would be the smallest possible example where the Weird Behaviour is still seen. That way we don't have to paw through dozens (or hundreds) of lines of irrelevant code.

last cant be used to exit blocks. Refer perldoc -f last.
Moreover use <code> tage to post codes

last cant be used to exit blocks.

Wrong (well, half wrong ;-)

perl -wle '$x = 1; {$x = 2; last; $x = 3} print $x'
2
[download]

The documentation for last states that

"last" cannot be used to exit a block which returns a value such as "eval {}", "sub {}" or "do {}"

but it can be used to exit all other loop blocks, even bare blocks. But it can not be used to exit if/elsif/else blocks.

...all of which is a pretext for the poor mans case/switch statement illustrated here
A user level that continues to overstate my experience :-))