#!/usr/bin/perl

use strict;

open (OUT, ">robots.txt") || die "Cannot open robots.txt\n";

print OUT "User-agent: *\n";
print OUT "Disallow: /\n";

close OUT;