Select Code to Download

if(!$tar_engine->extract(@filelist))
    {
        my $ret = 1;
        print "\nError in extraction.\n";
    }