#!/usr/bin/perl
my $sfxfile = "samples.exe";
system( "$sfxfile" ) == 0
   or die "Can't unzip $sfxfile";