> perl -w tmp.pl
Possible unintended interpolation of @gmail in string at tmp.pl line 5.
Name "main::gmail" used only once: possible typo at tmp.pl line 5.
Terminating on signal SIGINT(2)