C:\_32\c>perl double.pl
Can't call method "Call" on an undefined value at double.pl line 5.

C:\_32\c>