if($flag eq '1'){ my $pr= "<print>IDIDIT</print>";print "<script>$pr</script>";}