#!/usr/bin/perl

$| = 1;

while( ) {
    print "Number, plz: ";
    $input = <>;
    chomp $input;
    print "\nOutput is: ", ( ($input*2)-1 ), "\n";
}