#!/usr/bin/perl -w

use strict;

my $error_status = system 'date';

print "system() returned: $error_status\n";