#!/usr/bin/perl use common; @PRICES = common::read(); print < McLoop: Bestellung

Home

Leuchten

Publikationen

Events

Bestellung

Vita

Impressum

Bestellung

Jedes Motiv existiert 25 mal. Es wird nummeriert und signiert.
Ist ein Motiv erschöpft, wird eine neue Vorlage geschaffen.

EOD printprod_best(0,9); print < EOD printprod_best(10,17); print <

Nettopreise zzgl. 16% Mwst.
Bei Bestellung 50% Anzahlung, bei Lieferung komplett.
Die Lieferbedingungen sind individuell zu vereinbaren.

EOD exit(0); sub printprod_best{ my ($from,$to) = @_; for($i=$from;$i<=$to;$i++){ my $akt = $PRICES[$i]; my $Lamp = $akt->[2]; my $Desc = $akt->[3]; my $Price = $akt->[4]; chop($Price); print < EOD } }

McLoop Deckenleuchten

McLoop Motivscheiben mit Wandhalterung
$Lamp $Desc $Price EUR