#!/usr/bin/env perl

use v5.36;
use autodie;

print "'print'\n";
print STDOUT "'print STDOUT'\n";
print STDERR "'print STDERR'\n";
STDOUT->print("STDOUT->print\n");
STDERR->print("STDERR->print\n");

my $dummy_output = 'test_indirect.out';

{
    open my $fh, '>', $dummy_output;
    print $fh "print \$fh\n";
    system cat => $dummy_output;
}

{
    open my $fh, '>', $dummy_output;
    $fh->print("\$fh->print\n");
    system cat => $dummy_output;
}

{
    my %file_handles;
    open $file_handles{test}, '>', $dummy_output;
    $file_handles{test}->print("\$file_handles{test}\n");
    system cat => $dummy_output;
}

{
    my %file_handles;
    open $file_handles{test}, '>', $dummy_output;
    print {$file_handles{test}} "print {\$file_handles{test}}\n";
    system cat => $dummy_output;
}

#{
#    my %file_handles;
#    open $file_handles{test}, '>', $dummy_output;
#    print $file_handles{test} "print \$file_handles{test}\n";
#    system cat => $dummy_output;
#}

use IO::File;

{
    my $fh = IO::File::->new($dummy_output, '>');
    print $fh "IO::File: print \$fh\n";
    system cat => $dummy_output;
}

{
    my $fh = IO::File::->new($dummy_output, '>');
    $fh->print("IO::File: \$fh->print\n");
    system cat => $dummy_output;
}

{
    #use feature 'indirect';
    my $fh = new IO::File($dummy_output, '>');
    $fh->print("indirect! IO::File: \$fh->print\n");
    system cat => $dummy_output;
}