Question : gmail reciepient notification

do you know gmail has the function?

Answer : gmail reciepient notification

Unless you need those extra variables later, you don't need to create them:
print scalar(@$row), "\n";

If the $size variable is needed later, you could do this:
my $size = @$row;
print $size, "\n";