foreach my $file ( @image_list ) {
  $file =~ s#$path##;    # remove the physical path part
  my $file_name = $file;
  $file_name = s/\.\w+$//;  # strip off extension
  print "<a href=\"http://mysite.com/cgi-bin/get-image/$file">Image: $file_name</a>";
}