if($tar_engine == undef)
{
    print "\nCant get tar object\n";
}
else
{
    my @filelist = $tar_engine->extract;		  
    if(! @filelist)
    {
        my $ret = 1;
        print "\nError in extraction.\n";
    }
    else
    {
        print "\nCompleted Successfully\n";
    }
}