#!/usr/bin/perl -w

$return_value = system("NOTEPAD");

print "System returned $return_value\n";