#!/usr/bin/perl

use strict;
use warnings;

open (FILE, "pdftotext -f 1 /root/Desktop/urfile.pdf - |");
my $file = <FILE>;
print "$file\n";

close FILE;