#!/usr/bin/perl

use warnings;
use strict;
use Switch;

file_version_1();
file_version_2();

sub file_version_1 {
    open( my $fh, '<', '/tmp/test_file.txt' ) or die( "Error: $!" );
    while( my $line = <$fh> ) {
        print "$line\n";
    }
    close( $fh );
}

sub file_version_2 {
    open ( FH, '/tmp/test_file.txt' ) or die ("Error: $!" );
    while ( my $line = <FH> ) {
        print $line;
    }
    close( FH );
}

sub test_switch {
    my $id = shift;

    switch( $id ) {
      case 'add' { print 'aa' };
    }

    return 1;
}