Select Code to Download

#usr/bin/perl -w

...
    $answer = <STDIN>;
    print $answer;
}

use strict;
use warnings;