#!/usr/bin/perl
use strict;
use warnings;

use Path::Tiny qw/ path /;

my $file = '1140475.txt';

my $first = ( split ',', (path($file)->lines( {chomp => 1, count => 1} ))[0] )[0];

print "$first\n";

__END__