use strict;
use warnings;

use Devel::CallParser qw( callparser1_h );

my ($qfn) = @ARGV;

open(my $fh, '>', $qfn)
   or die("Can't create \"$qfn\": $!\n");
print($fh callparser1_h())
   or die("Can't write to \"$qfn\": $!\n");
close($fh)
   or die("Can't write to \"$qfn\": $!\n");