#!/usr/bin/perl -w
use strict;

# escape a URI with uri escaping
#
# Stefano "Zack" Zacchiroli <zack@cs.unibo.it>
#


use URI::Escape;

while(<>) {
 chomp;
 print uri_escape($_);
 print "\n";
}
