Select Code to Download

#!/usr/bin/perl -w
package DB;
...
}
1;

my $db = DB->new(); but I'm getting the following exception