old.pl

#!/usr/bin/perl

use strict;
use warnings;

#package UrlFile;

use Config::Simple;
use File::Basename;

my $suf_regex = qr/\.url$/i;
my $dir = $ARGV[0];

if (!opendir(DIR, $dir)) {
	print "cannot open dir\n";
	exit 1;
}
foreach (grep{ /\.url$/i && -f "$_" } map{ "$dir/$_" } readdir(DIR)) {
	my $file = $_;
	my @filep = fileparse($file, $suf_regex);
	my $cfg = new Config::Simple($file);
	my $url = $cfg->param('InternetShortcut.URL');
	print "$filep[0] : $url\n";
}
closedir(DIR);