#!/usr/bin/perl

use warnings;
use strict;

print "OS username:";
my $os_user = <>;
chomp $os_user;   #remove "\n" on the end of entered string

... ?