c:\@Work\Perl\monks\gpmathis>perl -wMstrict -le
"print qq{\nHow old are you?: };
 my $age = <STDIN>;
 my $year = 2017 - $age;
 print qq{You were born in $year\n};
"

How old are you?:
42
You were born in 1975


c:\@Work\Perl\monks\gpmathis>perl cap_con_1.pl
0, 0, 99, 59
"
 c:\\\@Work\\Perl\\monks\\gpmathis>perl -wMstrict -le
      \"print qq{\\nHow old are you?: };
         my \$age = <STDIN>;
          my \$year = 2017 - \$age;
            print qq{You were born in \$year\\n};
             \"

              How old are you?:
              42
              You were born in 1975


              c:\\\@Work\\Perl\\monks\\gpmathis>perl cap_con_1.pl
                   0, 0, 99, 59"
======

c:\@Work\Perl\monks\gpmathis>perl -wMstrict -le
"print qq{\nHow old are you?: };
 my $age = <STDIN>;
 my $year = 2017 - $age;
 print qq{You were born in $year\n};
"

How old are you?:
42
You were born in 1975


c:\@Work\Perl\monks\gpmathis>perl cap_con_1.pl
0, 0, 99, 59
======

c:\@Work\Perl\monks\gpmathis>