use File::Temp 'tempfile';
my ($fh, $filename) = tempfile( UNLINK => 1, OPEN => 1 );
print {$fh} <DATA>;
close $fh;
system @yada, "/fl", $filename;
__DATA__
yada