#!/bin/sh

for x
do perl -MLWP::Simple -e 'getprint "'$x'"'
done