#!/usr/bin/perl
#this is crash.pl
use Foo;
package user;
bless ($self=[]) => __PACKAGE__;
$f=Foo->new();

sub DESTROY {Foo->new()}