#!/usr/bin/perl -slw

use strict;
use CGI qw( :standard escapeHTML );

my $query = new CGI;
my $directory = '/root';
my @names = $query->param;
my $url = $query->param("URL");
my $upload = $query->upload('upload_file');
my $name = $query->param('name'); 
my $file  = 'tick.html';

print "Content-type: text/html";
binmode STDOUT, ":encoding(utf8)";

open my $fh, '<', "$directory/$file" || die $!;
my $buffer;
my $bytesread = read( $fh, $buffer, 80 );
print "$directory/$file";
close $fh;