use eg033_Car;  #use package
my $newcar = new eg033_Car;  #create new instance
print $newcar->vin(),"\n";  #method operator ->