#!/usr/bin/perl -w
use strict;
my $cmd = "pwd";
system $cmd == 0 or die "error ($?)\n";