#!/usr/bin/perl 
 
use CGI qw(:standard); 
# use CGI::Carp qw(fatalsToBrowser) 
use strict; 
use warnings; 
 
my $q = new CGI; 
 
my $from_url = $q->param('url'); 
my $to_url 
my $dbase = "dbase.txt"; 
 
open(FILE, "<", $dbase) or die "Can't open $dbase: $!"; 
while(<FILE>) { 
  chomp; 
  my ($url1, $url2) = split(/\t/, $_); 
  if ($url1 eq $from_url) { 
    $to_url = $url2; 
    last; 
  } 
} 
close(FILE); 
 
if ($to_url) { 
  print $q->redirect($to_url); 
} 
else { 
  print $q->header; 
  print "Couldn't find $from_url"; 
}

use CGI; 
 
# Note: Don't use indirect object notation 
my $q = CGI->new; 
 
my $from_url = $q->param('url');

use CGI qw(:standard); 
 
my $from_url = param('url'); # No object needed