Exercise 5.1D

Return to Week 2 Exercise 5.1 in Beginning Perl for Bioinformatics

#!/usr/bin/perl -w

use strict; 

# Damian Almiron

# Ex5-1 

# Write a nonhalting program using a loop- (refer to pg 61), can you use

#pattern matching for this (refer to pg 69)? 

# Define variables

my $number= ’777’;

my $name= 'DamianDamianDamian'; 

# Infinite loop

    while($number = '777'){

        print "$name!\n";

} 

exit;