Select Code to Download

#!/usr/bin/perl -w
use strict;
...
{
    confess "Something went wrong! $!";
}

if($input =~ m/y/i)
{
...
{
    #do something different
}

import java.util.Scanner;

...
        System.out.println(something);
    }
}

my $input = <STDIN>

Scanner newScan = new Scanner(System.in);
String input = newScan.nextLine();

youngs-mac-mini:Documents fenimore$ perl SomeStuff.pl
Opened text.txt!
...
for editing!
Filehandle EDIT opened only for output at SomeStuff.pl line 43.
youngs-mac-mini:Documents fenimore$