Pipe a command into psql within a loop with a heredoc

repeat_psql.pl

#!/usr/bin/perl

$svr="localhost";
$dbname="rob";   

for $x (1..10) {
	open(CMD, " | psql -h $svr $dbname");                                                                                                                         
	print CMD <<END;
BEGIN TRANSACTION; 
INSERT INTO insert_log ("when") VALUES(NOW()); 
INSERT INTO insert_log ("when") VALUES(NOW() + interval '$x day');                                                                                                      
COMMIT; 
END 
	print CMD $heredoc;
	close(CMD);
}