#!/usr/bin/perl
# From: John Jannotti <jj@lcs.mit.edu> writes:

use URI;
for $u (@ARGV) {
	print URI->new($u)->canonical."\n";
}