#!/opt/bin/perl -w
#
#usage: ./plc.pl url
#
use strict;

my ($url) =@ARGV;
while(my $scalar = <>){
####
Main Program here
####
}