#!/usr/bin/perl

use strict;
use warnings;

use CGI;

my $cgi = CGI->new();

print $cgi->header('text/plain');

print('URL=', $cgi->param('URL'), "\n");
print('Alias=', $cgi->param('Alias'), "\n");

my $fh = $cgi->param('FILE');
print("--\n");
print while <$fh>;