Select Code to Download

#!/usr/bin/perl -w
use strict;
use CGI;
...
my $target_dir = "\\alerts\\images\\";
my $base_dom = "http://www.thissite.org/alerts";
my $image_folder="/images/";

sub file_up {
    local $| = 1;
    my ($bytesread,$buffer,$file);
...
    $image_link = $base_dom . $image_folder . $filename;
    $image_link;
}