c:\@Work\Perl\monks\gpmathis>---
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>capsess
======

c:\@Work\Perl\monks\gpmathis>---
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>