print syntax not working after my $dbh = DBI->connect($dsn, "username", "password"); has been called. But when I put print syntax on the top of my $dbh = DBI->connect($dsn, "username", "password"); print work properly. This case happen when I run this code through browser using CGI and when I run this code in command-line both work properly.

Here are the code:

#!"C:\Strawberry\perl\bin\perl.exe"
use CGI qw(:standard);
use DBI;
use JSON;

print header("application/json");

my $dsn = "DBI:mysql:database=webservices;host=localhost;port=3306";

print "test"; #work properly
my $dbh = DBI->connect($dsn, "root", "bukanjombloboy");
print "test"; #not working    

my $result = $dbh->prepare("SELECT * FROM news");
$result->execute();

my $json_text = to_json($result->fetchall_arrayref());
print $json_text;

$dbh->disconnect();

Sorry for my bad English, thanks anyway.