Perl

print"Hello world\n";
$a='don\'t do it';
print a.$a;
print "\$";

print "type in your name:";
$name=<STDIN>;
chomp($name);
print "$name is a genius!!!!!!!";