#!/usr/bin/perl -w use CGI qw/:all/; use CGI::Carp qw(fatalsToBrowser); use DBI; my $cod = param("cod"); if($cod==1) { $msg="Updation Successful"; } else { $msg="Unable Update, Try Again Later!!! "; } print < $msg blk