use Archive::Tar;
my $tar_obj = Archive::Tar->new( "test.tar" );
my @files = $tar->get_files; 

##</code><code>##

error:Name "main::tar" used only once: possible typo at u.pl line 4.
Can't call method "get_files" on an undefined value at u.pl line 4.