Select Code to Download

#!/usr/bin/perl -w

use strict;

use warnings;  # rather than -w

system "netbackup/bin/admincmd/bpdbjobs -report -all_columns\n";

mail "xxxxxx@xxxxx.com

campari:~ [18:37:59]$ perldoc -f mail
No documentation for perl function `mail' found

mail "xxxxxx\@xxxxx.com";

mail 'xxxxxx@xxxxx.com';

Bareword "com" not allowed while "strict subs" in use at ./nb.pl line 
+7.<br>
Unquoted string "com" may clash with future reserved word at ./nb.pl l
+ine 7.<br>
Execution of ./nb.pl aborted due to compilation errors.
<br>

String found where operator expected at foo2.pl line 7, at end of line
        (Missing semicolon on previous line?)
Can't find string terminator '"' anywhere before EOF at foo2.pl line 7
+.