#!/usr/bin/perl

use strict;

foreach (@ARGV) {
    print "Staring:  NOTEPAD $_\n";
    system ("start notepad $_")
}