my $dir = "/my/working/directory"; chdir ( $dir ); system ("rm -rf *");