#!/usr/bin/perl -w use strict; my $redirected_url = "http://dialer1.net4india.com/freedom_till_midnight_of_independence_day/Dialer.exe"; print "Location: $redirected_url\n\n"; #use strict; #my $var = int(rand(5)) + 1; #my $redirected_to_url = "http://dialer".$var.".net4india.com/Dialer.exe"; #print "Location: $redirected_to_url\n\n";