Sacro

#!/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; (-d $source_link && -d $target_link) ? $erc = 0 : $erc = "Directorsies Missing";

$erc = system("ln -s $source_link $target_link") / 256 unless $erc;
print "\n\nError $! $? occured..." if $erc;
print "\n\n=== Done...";
__END__