#!/usr/bin/perl -wuse strict;my $error_status = system 'date';print "system() returned: $error_status\n";