Function file:
sub GET_FLAG {
 my $dbh=$_[0];
  my $query = 'SELECT * FROM test_area WHERE y = 1';
  my $sthcfgf2 = $dbh->prepare($query);
  my $result=$sthcfgf2->execute();
  my @getinfooutput = $sthcfgf2->fetchrow();
  $sthcfgf2->finish();
 }
 return @getinfooutput;
}

Main File:

#!/usr/bin/perl -X
require "page_functions.html";
 use DBI;
 my $dbh = DBI->connect(connect_info_here);

($currentnews)=Functions::GET_FLAG($dbh);

print $currentnews;