How do you use format/write (legacy) with a short example?

Perl, format, write, legacy, example

This example demonstrates how to use format and write in Perl to output formatted text.


        #!/usr/bin/perl
        use strict;
        use warnings;

        # Define the output format
        format STDOUT =
        The name is: @<<<<<<<<<<<<<<
                         $name
        .

        # Sample data
        my $name = 'John Doe';

        # Write to standard output using the defined format
        write;