Perl - How to print a "carriage return" to an output file?

[ageoftvb]

Let's say I want to write a program that run these 4 UNIX commands and redirect output to a file.

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

`cd \$HOME > output.txt`;
`cut -f1 inputfile.txt >> output.txt`;
`hostname >> output.txt`;
`ifconfig >> output.txt`;

I want to print a "carriage return" or "---------" after each command to separate them and pretty up the output.txt. How would I do that?

 

[Lisa A]

print "\r\n";

 

[martinthurn]

open OUT, '>>', 'output.txt' or die;
print OUT qq{-------------\n} or warn;
close OUT or warn;