#!/usr/bin/perl -w
use strict;
use Shell qw( ls touch );

touch( "dummy" ) or die "touch: $!";
ls( "dummy" ) or die "first ls: $!";
ls( "dummy" ) or die "second ls: $!";