if (open(my $fd,"-|","cal")) {
    while (<$fd>) { #since no assignment, read into $_
        print ;     #since no variable, print $_
    }
}