#!/usr/bin/perl

use warnings;
use strict;
use diagnostics;

my $name   = 'Han Solo';
my $medium = "All";
my $alter  = 34;
my $c      = 2.99792458e8;

print "$name ($alter) fliegt mit...\n";
print "...$c m/s durch das $medium.\n";