Language Basics Perl

$Console = "con";
    open(IN,"$Console") || die "Can't open $Console, $!\n";
    $| = 1;
    print "Please enter data here: ";
    $Input = ;
    chop $Input;
    print "Input = $Input\n";
    close(IN);