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


touch( "dummy" );
ls( "dummy" );