RosettaCodeData/Task/Create-a-file/Perl/create-a-file-5.pl

unlink $_ for qw(/docs/output.txt ./docs/output.txt);
rmdir  $_ for qw(/docs ./docs);