#!/usr/bin/perl -w
print "content-type: text/plain\n\n";
my $home        = `cd ~`;
my $public_html = "$home/public_html";
my $target_link = "$public_html/ben/demo";
my $source_link = "$home/hostrails/temp/public";
my $erc = system("ln -s $source_link $target_link") / 256;
print "\n\nError $! $? occured..." if $erc;
print "\n\n=== Done...";
__END__