#!/usr/bin/perl -w
use strict;

use Getopt::Long;

my $string;

GetOptions( "string=s" 	=>	\$string
);

printf("string = $string\n");

##</code><code>##

#!/bin/tcsh

/home/perl_scripts/pass_newline_as_text.pl \
	-string 'foo\nbar'

##</code><code>##

string = foo
bar

##</code><code>##

string = foo\nbar