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