#!/Perl/bin/perl

use CGI;


$tracking = new CGI;

print $tracking->header();

print $tracking->start_html();

opendir(TRACKING, "R:\\");

@test = readdir TRACKING;

print @test;

print $tracking->end_html;