#! /usr/bin/env perl

# print wifi password labels!

use strict;
use warnings;

my ($network1, $password1) = ('guest 1:', '-%-%-%-%-%-%-%-%');
my ($network2, $password2) = ('guest 2:', '%-%-%-%-%-%-');

write for 1..8;

format STDOUT =
@<<<<<<<<<<<<<<< │ @<<<<<<<<<<<<<<< │ @<<<<<<<<<<<<<<< │ @<<<<<<<<<<<<<<<
($network1) x 4
@<<<<<<<<<<<<... │ @<<<<<<<<<<<<... │ @<<<<<<<<<<<<... │ @<<<<<<<<<<<<...
($password1) x 4
                 │                  │                  │
@<<<<<<<<<<<<<<< │ @<<<<<<<<<<<<<<< │ @<<<<<<<<<<<<<<< │ @<<<<<<<<<<<<<<<
($network2) x 4
@<<<<<<<<<<<<... │ @<<<<<<<<<<<<... │ @<<<<<<<<<<<<... │ @<<<<<<<<<<<<...
($password2) x 4
─────────────────┼──────────────────┼──────────────────┼─────────────────
.
