perl/script/CGI module

use CGI;
my $q = new CGI;
my $url = $q->param('url');

#ヘッダー出力
print $q->header();
print $url;
#フッター出力
print $->end_html();

#リダイレクト
use CGI qw/:standard/;
print redirect(-uri=>'http://dsktnk.sakura.ne.jp/');

#ファイルをDLさせる
use CGI qw/:standard/;
print header(-type=>'application/octet-stream',
    -attachment=>'test.txt');
print "test¥n";