Perhaps what you want, for at least some unix variants, is something like this:

#!/usr/local/bin/perl -w
use strict;
my $deletedir = '/tmp/test1';
my $result = system("rm -rf $deletedir");
print "Result: $result\n";
[download]