#!/usr/bin/perl -w
     
use strict;
use locale;
use warnings;
#use diagnostics;
use utf8;

binmode(STDIN, "encoding(utf8)");
binmode(STDOUT, "encoding(utf8)");
binmode(STDERR, "encoding(utf8)");

my $usr_input = "test/test.txt";
open (USRIN, '<:utf8', $usr_input) || die "Couldn't open $usr_input : $!\n";

my @data_usr = <USRIN>;
my $start_input = $data_usr[0];
my $end_input = $data_usr[1];
my $param1 = $data_usr[2];
my $param2 = $data_usr[3];

print "$start_input";
print "$end_input";
print "$param1";
print "$param2";

close (USRIN);