#!/usr/bin/perl -w
# untitled1.pl

use strict;

open(SHORTCUTS,"location.txt") || die"Can't open file: $!";
@file = <SHORTCUTS>;
close(SHORTCUTS) || die "Can't close file: $!";
foreach $line (@file) {
        system($line) && die "Can't execute $line: $!";
}