my $old_dir = '/path/to/old_dir';
my $result = system("rm -rf $old_dir");
print "Result: $result\n";