#!/usr/bin/perl
# untitled1.pl
open(shortcuts,"location.txt" || die"Can't open the stinkin' file");
@file = <shortcuts>;
close(shortcuts);
foreach $line (@file) {
chomp($line);
system(`$line\n`);
}
location.txt
c:/program files/netscape/communicator/program/netscape.exe
c:/Program Files/Netscape/Communicator/Winamp/winamp.exe
c:/Program Files/Netscape/Communicator/Program/AIM/aim.exe
In reply to loading
by elusion