use strict;
use warnings;

print "-------\n";
print json_here(42,666);
print "-------\n";


sub chompit {
    my $str = shift;
    chomp $str;
    return $str;
}


sub json_here { my $x=shift; chompit << "__JSON__" }
      "Type": 0,
      "Width": 504,
      "X": $x,
      "Y": $_[0]
    }
  ]
}
__JSON__


##</code><code>##

C:/Perl_524/bin\perl.exe -w d:/tmp/pm/chomp_here.pl 
-------
      "Type": 0,
      "Width": 504,
      "X": 42,
      "Y": 666
    }
  ]
}-------