#!/usr/local/bin/perl
# Jaime Prilusky, 2004
# store this script with a name ending with .cgi 
# in your public_html directory, and give it mode 755
# call it from a web browser with a URL:
# http://bicourse.weizmann.ac.il/~youruserid/scriptname.cgi

  print "content-type: text/html\n\n<pre>";

  my $path = $ENV{"PATH"};

  foreach $dir (split(/[\:\s]+/,$path)) {
    print $dir,"\n";
  }

  print "</pre>";