Greetings skyworld_chen,

I remember it this way: It's the $calar containing typically the text of the @rror from the most recently failed eval block.

eval {
    die 'Error string';
}
if ($@) {
    print $@, "\n";
}
[download]

From the command-line, perldoc -f eval to learn more.