#!/usr/bin/env perl use strict; use warnings; warn "Directory is " . `pwd`; warn "Contents are \n" . `ls -al`; exit;