use strict;
my $sort;
unless ($sort = do ('G4 HD:Desktop Folder:sort.pl')) {
	 die ("Could not open config file");
}
print $sort->{23}[0];