F:\_wo\pl_test>perl -c 667004.pl
667004.pl syntax OK

F:\_wo\pl_test>perl 667004.pl
Can't call method "prepare" on an undefined value at 667004.pl line 4.