#!/usr/bin/env perl

use strict;
use warnings;
use IPC::Run qw( run );
use feature qw(say);

my $command = q(cat);

my $text = run qq($command $0);

say $text;

__END__