Select Code to Download

$a = qq|${system("echo 'hello from system'")}\n|;
$a = "${system(\"echo 'hello from system'\")}\n";

#!/usr/bin/perl -wT
use strict;
...
my $a = <STDIN>;
chomp($a);
print "$a";