#! /usr/bin/perl $_ = $ARGV[0]; print("\n"); if (m/Mozilla\/3./) { # Netscape 3 print("\n"); print("\n"); } else { # Not Netscape 3 print("\n"); print("\n"); }