#! /usr/bin/perl

$arg = shift;
$arg =~ s/\n/\\n/g;
print "$arg\n"
